133

Real-Time Currency Conversion

133

STEP 1 continued

    Wend

  End With

  ‘Wait some to time for loading the page

  While ie.Busy

    DoEvents

  Wend

  Application.Wait (Now +​ TimeValue(“0:00:02”))

STEP 2

Get the input into the search field

For x =​ 2 To LR

    var =​ Worksheets(“Currency Pairs”).Cells(x, 1).Value & ““&

Worksheets(“Currency Pairs”).Cells(x, 2).Value

   

    Set var1 =​ ie.document.getElementsByClassName(“gLFyf gsfi”)

    AddressColumn =​ 2

    ZipCodeColumn =​ 1

    For Each one In var1

    one.Value =​ var

    Next one

   

    ‘ie.document.getElementById(“txtSearch”).Value =​ var

    ‘Here we are clicking on search Button

    If x =​ 2 Then

      Set cl_​button =​ ie.document.getElementsByClassName(“gNO89b”)

    For Each one In cl_​button

        one.Click

        Exit For

      Next one

    Else

      Set cl_​button =​ ie.document.getElementsByClassName(“Tg7LZd”)

      For Each one In cl_​button

        one.Click

        Exit For

      Next one

      End If

      While ie.Busy

        DoEvents

      Wend

:

: